home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / PowerMacOberon feb96 / System / KeplerGraphs.Sym < prev    next >
Encoding:
Text File  |  1995-11-30  |  2.3 KB  |  8 lines  |  [TEXT/.Ob4]
  1. ˜¿Ÿ’øKeplerGraphs |ObjectDescObject¸{self¬⁄‘øKeplerPortsPort˚{P Draw¸{selfã≈¶¶Filesreseof tRider˚{R Read¸{self˚{R WritenofptsStar
  2. pConstellationnext tConsDesc¸{self˚{R Read¸{selfState¸{self˚{R     WriteGraphconsstars seltime¸{op˚{G˙{O˘{P     Notifiernotify pGraphDesc¸{G˚{op  All¸{G˚{o  Append¸{G˚{from˙{dx˘{dy CopySelection¸{G˚{o Delete¸{G˚{minstate DeleteSelection¸{G˚{P Draw¸{G˚{p FlipSelection¸{G˚{s˙{dx˘{dy     Move¸{G˚{dx˙{dy 
  3. MoveSelection¸{G˚{R Read¸{G˚{o  SendToBack¸{G˚{R Write¸{G˚{R  WriteSelPlanetxyrefcntsel next xStarDesc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R Writec lPlanetDesc¸{self Calc¸{self˚{P Draw¸{self˚{R Read¸{self˚{R Write¸{o ˚{module˘{type
  4. GetType ¸{nameOld¸{R˙{x ReadObj Recall Reset¸{R˙{x  WriteObjdrawloadingrestoreܵàflDisplay Frame dsc nextX
  5. Y WH ¸{f x!!FrameMsg!˚{msg     "Handler"handle t##FrameDescx0y0scale ext #$|$$ $PortDesc¸{P˚{x$CX¸{P˚{y$CY¸{P˚{X$Cx¸{P˚{Y$Cy¸{P˚{x˙{y˘{r¯{col˜{mode $DrawCircle¸{P˚{x˙{y˘{a¯{b˜{colˆ{mode $DrawEllipse¸{P˚{x1˙{y1˘{x2¯{y2˜{colˆ{mode $DrawLine¸{P˚{x˙{y˘{w¯{h˜{colˆ{mode $DrawRect¸{P˚{x˙{y %˘{sêØâflFonts&Font&˜{fontˆ{colı{mode $    DrawString¸{P˚{x˙{y˘{r¯{col˜{patˆ{mode $    
  6. FillCircle¸{P˚{x1˙{y1˘{x2¯{y2˜{x3ˆ{y3ı{x48y4<col¿patƒmode $
  7. FillQuad¸{P˚{x˙{y˘{w¯{h˜{colˆ{patı{mode $ FillRect$ #
  8.  'Name'name height"minX$maxX&minY(maxY(Font(,raster0 4|))FontDesc&) |**Bytes(*